home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / MEDIA / REVIEWS.DXR / Internal_23.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  1.1 KB  |  29 lines
  1. on mouseUp
  2.   global gTB
  3.   puppetSound(1, 0)
  4.   puppetSound(1, "pioolb")
  5.   set errCode to mGoPrevious(gTB)
  6.   if errCode = 0 then
  7.     put mGetField(gTB, "appname") into field "appname"
  8.     put mGetField(gTB, "highs") into field "highs"
  9.     put mGetField(gTB, "lows") into field "lows"
  10.     put mGetField(gTB, "BottomLine") into field "BottomLine"
  11.     put mGetField(gTB, "Rating") into field "Ratings"
  12.     put mGetField(gTB, "AlphaSortKey") into field "alphsortkey"
  13.     put field "Ratings" & "%" into field "Rating"
  14.     put field "AlphSortKey" into field "AlphaKey"
  15.     put mGetField(gTB, "CoName") into field "CoName"
  16.     put mGetField(gTB, "Address") into field "Address"
  17.     put mGetField(gTB, "City") into field "City"
  18.     put mGetField(gTB, "State") into field "State"
  19.     put mGetField(gTB, "Zip") into field "Zip"
  20.     put mGetField(gTB, "Phone") into field "Phone"
  21.     put mGetField(gTB, "Phone2") into field "Phone2"
  22.     put mGetField(gTB, "email") into field "email"
  23.     set currRec to mGetPosition(gTB)
  24.     put currRec into field "totalRecs"
  25.   else
  26.     beep()
  27.   end if
  28. end
  29.